Profile of (eval 207)[Sub/Quote.pm:3]

Filename	(eval 207)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 64 statements in 325µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
11	2	2	119µs	1.05ms	Method::Generate::Constructor::::newMethod::Generate::Constructor::new
1	1	1	11µs	30µs	Method::Generate::Constructor::BEGIN@5.68
1	1	1	4µs	4µs	Method::Generate::Constructor::BEGIN@10.69

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
3	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
4					package Method::Generate::Constructor;
5	2	38µs	2	49µs	# spent 30µs (11+19) within Method::Generate::Constructor::BEGIN@5.68 which was called: # once (11µs+19µs) by Sub::Quote::_clean_eval at line 5 no warnings 'closure'; # spent 30µs making 1 call to Method::Generate::Constructor::BEGIN@5.68 # spent 19µs making 1 call to warnings::unimport
6					# spent 1.05ms (119µs+932µs) within Method::Generate::Constructor::new which was called 11 times, avg 96µs/call: # 10 times (114µs+932µs) by Moo::_constructor_maker_for at line 262 of Moo.pm, avg 105µs/call # once (5µs+0s) by Moo::_constructor_maker_for at line 177 of Sub/Defer.pm sub new {
7					($_QUOTED,$_UNQUOTED) if 0;
8					# BEGIN quote_sub PRELUDE
9					package Method::Generate::Constructor;
10					# spent 4µs within Method::Generate::Constructor::BEGIN@10.69 which was called: # once (4µs+0s) by Sub::Quote::_clean_eval at line 15 BEGIN {
11	1	0s			$^H = 2018;
12	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
13	1	2µs			%^H = (
14					);
15	1	176µs	1	4µs	} # spent 4µs making 1 call to Method::Generate::Constructor::BEGIN@10.69
16					# END quote_sub PRELUDE
17	9	4µs			my $invoker = CORE::shift();
18	9	6µs			my $class = CORE::ref($invoker) ? CORE::ref($invoker) : $invoker;
19	9	4µs			if ($class ne "Method::Generate::Constructor") {
20					if ($Moo::MAKERS{$class}) {
21					if ($Moo::MAKERS{$class}{constructor}) {
22					package Method::Generate::Constructor;
23					return $invoker->SUPER::new(@_);
24					}
25					Moo->_constructor_maker_for($class);
26					return $invoker->new(@_);
27					} elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) {
28					return $meta->new_object(
29					$class->can("BUILDARGS") ? $class->BUILDARGS(@_)
30					: $class->Moo::Object::BUILDARGS(@_)
31					);
32					}
33					}
34					my $args = scalar @_ == 1
35					? CORE::ref $_[0] eq 'HASH'
36	9	20µs			? { %{ $_[0] } }
37					: Carp::croak("Single parameters to new() must be a HASH ref"
38					. " data => ". $_[0])
39					: @_ % 2
40					? Carp::croak("The new() method for $class expects a hash reference or a"
41					. " key/value list. You passed an odd number of arguments")
42					: {@_}
43					;
44	9	13µs			my $new = bless({}, $class);;
45					(exists $args->{"accessor_generator"} and ($new->{"accessor_generator"} = $args->{"accessor_generator"})),
46					(exists $args->{"attribute_specs"} and ($new->{"attribute_specs"} = $args->{"attribute_specs"})),
47					(exists $args->{"construction_builder"} and ($new->{"construction_builder"} = $args->{"construction_builder"})),
48					(exists $args->{"construction_string"} and ($new->{"construction_string"} = $args->{"construction_string"})),
49					(exists $args->{"package"} and ($new->{"package"} = $args->{"package"})),
50	9	57µs			(exists $args->{"subconstructor_handler"} and ($new->{"subconstructor_handler"} = $args->{"subconstructor_handler"})),
51					return $new;
52					}
53	1	1µs			$$_UNQUOTED = \&new;
54					}
55	1	4µs			1;
56
57					;